home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 December / 64er_Magazin_87-12_1987_Markt__Technik_de_Side_A.d64 / multipunkt zeich (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  737b  |  30 lines
  1. 60394 rem
  2. 60395 rem *** multi-punkt setzen ***
  3. 60396 rem
  4. 60397 rem fa = farbe des punktes (0-3)
  5. 60398 rem x,y = koordinaten des punktes
  6. 60399 rem
  7. 60400 ga=320*int(y/8)+(y and 7)+(8*int(x/4))+8192:rem grafikadresse errechnen
  8. 60405 rem * bitnummern errechnen *
  9. 60410 m1=2*(3-(x and 3))
  10. 60420 m2=m1+1
  11. 60425 rem * welche farbe ? *
  12. 60430 on fa+1 goto 60450,60460,60470,60480
  13. 60440 print "?falsche farbe":end
  14. 60445 rem * bitkombinationen der farben *
  15. 60450 b1=0:b2=0:goto 60490
  16. 60460 b1=0:b2=1:goto 60490
  17. 60470 b1=1:b2=0:goto 60490
  18. 60480 b1=1:b2=1
  19. 60490 if b1=0 then m=m1:gosub 60540:rem bit1 loeschen
  20. 60500 if b1=1 then m=m1:gosub 60560:rem bit1 setzen
  21. 60510 if b2=0 then m=m2:gosub 60540:rem bit2 loeschen
  22. 60520 if b2=1 then m=m2:gosub 60560:rem bit2 setzen
  23. 60530 return
  24. 60535 rem * bit loeschen *
  25. 60540 poke ga,peek(ga) and (255-2^m)
  26. 60550 return
  27. 60555 rem * bit setzen *
  28. 60560 poke ga,peek(ga) or 2^m
  29. 60570 return
  30.